Public Class JsonBasicObjectConverter As AbstractJsonConverter

Methods Detail

• fromHelper

  Public Function fromHelper(helper As JsonConversionHelper) As AbstractJsonConverter
  Overrides base method
  idx	Argument	Data Type	Attributes	Comments
  1	helper	JsonConversionHelper		Helper from which the converter is being used

• fromJson

  Public Function fromJson(source As JsonObject) As Variant
  Overridden function. The fromJson method is called from AbstractJsonConverter's deserialize method.
  idx	Argument	Data Type	Attributes	Comments
  1	source	JsonObject		JSON object to deserialize from
  Code Sample
  %REM The following code is an abbreviated version of code in AbstractJsonConverter.deserialize. It calls the derived class's fromJson function and passes the result to AbstractJsonConverter.deserializeToProperty %END REM Sub deserialize(holder as JsonConversionHolder, source as JsonObject) Call deserializeToProperty(holder, fromJson(source), source.label) End Sub

• toJson

  Public Function toJson(source As Variant) As Variant
  Overridden function. The toJson method is called from AbstractJsonConverter's serialize method.
  idx	Argument	Data Type	Attributes	Comments
  1	source	Variant		Variant containing the property to be serialized
  Code Sample
  %REM The following code is an abbreviated version of code in AbstractJsonConverter.serialize. It extracts a property value, passes it to the derived class's toJson function and passes the result to AbstractJsonConverter.serializeToProperty %END REM Sub serialize(source as Variant, target as JsonObject) Dim propName as String Dim execString as String propName = Me.labelName Set samsaraObj = source execString = |If (isObject(samsaraObj.| & propName & |)) Then Set samsaraVal = samsaraObj.| & propName & | Else samsaraVal = samsaraObj.| & propName & | End If| Call serializeToProperty(toJson(samsaraVal), target) End Sub

• withHelper

  Public Function withHelper(helper As JsonConversionHelper) As JsonBasicObjectConverter
  Passes a JsonConversionHelper with which to convert the object
  idx	Argument	Data Type	Attributes	Comments
  1	helper	JsonConversionHelper		JsonConversionHelper with settings to use during conversion
  Code Sample
  %REM The following code is from ser-40.txt. It creates a JsonConversionHelper to convert "name" and "type" properties as scalars and passes it to a JsonBasicObjectConverter. %END REM Dim petHelper as New JsonConversionHelper() Call petHelper.withScalarConverter("name") Call petHelper.withScalarConverter("type") Dim petConverter as New JsonBasicObjectConverter("Pet", "ser-40") Call petConverter.withHelper(petHelper)

• New

  Public Sub New(className As String, libName As String)
  Constructor
  idx	Argument	Data Type	Attributes	Comments
  1	className	String		Class to create an instance of
  2	libName	String		Script file where the class is defined